PC Answers 1995 December/PC Answers December 1995 (disc errors).iso/mxc/intro.dir/00027_patrick up.ls

Text File | 1995-05-04 | 828 b | 33 lines

on mouseDown
  global myLine, myLine2, gsliderbar, profileVid, csn, gExtraVid, auto, gAudBlrb, gmyLineKeep
  if the doubleClick or (the timer < 120) then
    beep()
    exit
  end if
  if the castNum of sprite 24 < 101 then
    beep()
    exit
  end if
  set gmyLineKeep to myLine
  set the castNum of sprite 8 to 37
  repeat with i = 11 to 16
    set the castNum of sprite i to i + 40
  end repeat
  if gAudBlrb = 1 then
    set gAudBlrb to 0
    set the castNum of sprite 9 to 29
  end if
  set the movieRate of sprite 24 to 0
  set the controller of cast the castNum of sprite 24 to 0
  set the video of cast the castNum of sprite 24 to 0
  updateStage()
  set auto to 0
  set profileVid to 1
  set myLine to csn + gExtraVid
  set palName to 205
  set tpal to palName
  puppetPalette(palName)
  patchPal()
  startTimer()
end